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INTCODE 



STORE AND REGISTERS 



The int code-machine is designed as a tool to help implementing 
BCPL on a new machine. 

The intcode-machine has a store consisting of equal sized 

locations addressed by consecutive integers. 

When emulated at a l6 bit machine as RIKKE it is natural to 

use two different instruc tionf ormats . Long format uses two 

consecutive words, while short format only uses one. 

The choice between these formats is automatically made by 

the assembler. 



The intcode-machine has 6 different l6 bit registers: 

A accumulator This register can be loaded from store. 



B auxiliary 
accumulator 



C program 
counter 

D address 

P run-time 
stack 

G global 



When A is loaded the old content of A is 
moved to B. 

All operations involving two operands are 
performed with these taken from B: and A 
(result in A) • 

Points to next instruction to be executed. 



Keeps the effective (resulting) address. 

Points to the bottom element of run— time 
stack. Is used to reference elements on 
this stack (local variables). 

Points to first element in globalvector . 
Is used to reference elements in global- 
vector. 



INSraUCTI£N_FOgMATS 

Each instruction consits of six .fields as follows: 
instruction code; 3 bits giving 8 possibilities 



address field 



P-bit 



G-bit 



I-bit 



L-bit 



9 or l6 bit (depending of long or short 
format). In both cases the field is 
interpreted as a no.nnegative integer, 

iff set P-register is added to the address, 

iff set G-register is added to the address, 

iff set the address, D, should be replaced 
by 1oc(d) (indirect addressing). 
This is done after possible adding of P 
and G. 

iff set long instructionf ormat is used. 



The effective address is calculated in k steps: 

1. D:= addressfield (depending on L-bit) 

2, possible adding of P-register 

3. possible adding of G-register 

4, possible indirectness 



SHORT: 



LONG: 



IS /V /3 


u 


u 


10 


f 


9 


code 


P 


G 


I 





address 




code 


P 


G 


I 


1 


garbage 




address 



If 



INSTRUCTJONCODES 



22£[e !2G2l!32?2i2 description 



comments 



000 Load 



001 Store 



B:=Aj A:=D 



loc(D) := A 



This is not a "normal" 
1 o ad- ins true t ion. 
It loads the effective ad- 
dress and not the content 
of this address. 



010 Add 



A := A + D 



Oil Jump 



C := D 



Unconditional jump to 
absolute address D. 



100 jump if 
True 



if A=0 then C:=D 



Conditional jump to ab- 
solute address D. 



101 jump if 
False 

110 K 



if A4=0 then C : =D 



loc(P+D) := P 
loc(P+D+l):= C 
P:= P+D 
C:= A 



Recursive function call. 
The current stack frame is 
specified by D and the 
entry point; is given in A. 
The first two cells of the 
new stack frame are set to 
hold return link information. 



Ill eXecute 



Allows auxiliary operations to 
be executed. The operation 
is specified by D modulu 32 
(last five bits). 



Figure showing- the effect of a K- ins true t ion 
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EXECUTEO PERATI ON S 



G2*. ^®S£ri2^i2G 



comments 



XI 


A: = 


loc 


(A) 




X2_ 


A: = 


-A 






X3 


A: = 


not 


A 




X4 


C: = 


loc 


(P + l) 






P: = 


loc 


(P) 




X5 


A: = 


B * 


A 




x6 


A: = 


B / 


A 




X7 


A: = 


B rem A 




X8 


A: = 


B + 


A. 




X9 


A: = 
A: = 


B - 
B = 


A 




XI 


A 


> 


XI 1 


A: = 


B ¥ 


A 




XI 2 


A: = 


B < 


A 




xi 3 


A: = 


B > 


A 




XI k 


A: = 


B > 


A 




xi 5 


A: = 


B < 


A 


J 


XI 6 


A: = 


B 1 shift A 




xi 7 


A: = 


B r£ 


shift A 




XI 8 


A: = 


B A 


A 




XI 9 


A: = 


B V 


A 




X2 


A: = 


B^ 


A 




X21 


A: = 


B = 


A 




X22 


finish 







Return from current routine or function. 
Result of function is left in A» 



Integer division 

Rest after integer division. 



> 



These operations yields a boolean 
result (true or false) 



B' is shifted A times logical left 

B is shifted A times logical right 
"B lshif t A" is equivalent to "B rshift -A" 



X23 switch This operation switches between a set of 

labels while it tests A against a set 
of conditions. 

The data following X23 is used in the follo- 
wing way, 

X23 

n 

label .default 

condition. 1 

label. 1 

condition. 2 

label. 2 



condition. n 
label. n 



n is a nonnegative integer. 

Label .default , label. 1 .... label. n are 

labelvalues. 

Condition. 1 ...... condition. n are integers 

The above peace of code is equivalent to:. 

if A = condition. 1 goto label. 1 
if A = condition. n goto label. n 



if A = condition. n goto label. n 
goto, label .default 

X24 selectinput selects inputdevice according to A 

X25 input input data to A from selected inputdevice 

X26 selectoutput selects outputdevice according to A 

X27 output output data from A to selected outputdevice 



ASSEMBLER 

SYNTAX - ' INFORMAL DESCRIPTION 



Input to the assembler is a program written in intcode (symbolic 
intcode using mnemonics)*, 

A program is a sequence of one ore more segments each consisting 
of a sequence of in t code- ins true tions terminated by a special 
Z-inst ruction. 

Instructions can be of 6 different kinds: 

normal-instruc. : executable instructions such as load, store etc. 
D-instructiohi : pseudoinstruction places data in dataarea 
C-instruction; : pseudoinstruction places character values in 

dataarea (packed two and two) 
G- instruction : pseudoinstruction initializes the globalvec- 

tor (only with labelvalues) 
L-instruction; : pseudoinstruction — list, and nolist 
Z- instruct ion; : pseudoinstruction terminates a segment 

A normal -instruct ion consits of 

a) label 

b) instructioncode 

c) IPG-bits 

d) address 

where IPG-bits are mnemonics for 

I - indirect addressing 

P — add P-register to address , 

G - add G-register to address 

Address can be either an absolut address (integer) or a label. 

b) and d) are always present while a) and c) can be omited. 



D-ins true t ion : places datavalue in memorycell in dataarea. 

When an integer is prefixed by D this integer is 
placed in the next cell in dataarea. 

When a labelnumber is prefixed by DL the value 
of this labelnumber is placed in the next cell 
in dataarea. 



2.: 



C - ins t rue t i on : is used to pack charactervalues in dataarea, 

Each character value is prefixed by a C. 

The charactervalues are packed left to right, 
two in each cell. 

If the left half of a cell has been filled and 
the next instruction is not a C-ins true tion 
without a labeldeclaration the right half will 
be padded with zeros. 



G-ins true tion ; is used to initialize element of globalvector 

with the value of a labelnumber . 



The format is : G <gloablnumber> L (labelnumber^ 



L-ins truction: is either an Y or a N. 



Y (yes) starts listing of codetext on outputfile 
N (no) stops listing of codetext on outputfile 



Z- ins truction : terminates a segment and cannot be used anywhere 

else. 



i.o 



SYNTAX - FORMAL_DESCRIPTION 

The syntax is now described in 13] IF, 

Underlined symbols are terminals, 

{n,m} menas an integer in the closed interval [n,nf] 

Everywhere in the sourcetext / can be inserted - then this charac- 
ter and the following until the next lineshift are skipped. 
This can be used as comment- or continuation facility. 

Each label can only be declared once. 
Each referenced label must be declared. 



<program) 
<segment) 



= (segment) 



*v 



(instruction)< Z-instruc) 



('in s t rue t i on) 



(normal-instruct I 
(D~instruction) j 
< C-instruction> 
^ G- instruct ion) i 
<C L- ins true t ion) 



<no rmal - ins t rue) 
(D-inst ruction) 
<CC- instruct ion) 
<G-instruction) 
(" L- ins true t ion) 
•^Z- ins true t ion) 



= <flabelpartj><(ins true code) \IPG-bit) <(address\ 

= (labelpart,) D (data) 

= (labelpart)- C <(charvalue)> 

= <skip)G<globa3) L<label) 

= <skip>(Y|N) 

= ('skip) Z (skip)> 



(labelpart) 
(skip) 
(delim) 
<label> 



(skip> (<label) <delim> ) 

( * s | *n j j>) 

(*s | *n | $) + 
{1,500} 



(iPG-bit) 
(address) 



(I P G) 

{0, 64K-1} L <label> 



^ ins true code) 



(k s|a!j tIf k|x) 



<data^> 

^cliarvalue^ 

<Cglobal> 



^-32K , 32K~:i} 

{0,255} 
{0,511} 



L <label> 



STIJUCTURE_OF_ ASSEMBLER 

The program is devided into 3 parts 

asshead keeps all global and manifest declarations 
assproc keeps all procedures 
assmain keeps the main program 



assproc and assmain uses asshead by a get-directive 

For information about the procedures in assproc please see 
the comments in the BCPL-listing. 



assmain has this structure: 



declarations and initializations 
read( ) 
newsegment: more initialization - presentation 
>-$(mainloop 
■switchon ch into 



case L: 



case X: 



>- 



case $ , *n, *s : 

case D: 

case C: 

case G-: 

case Y: 
case N: 



case Z : 
default : 
instruction: 
endcase: 
>-$)mainloop repeat 



goto instruction 



p> goto endcase 



goto newsegment 
goto endcase 



If an L, S ? 



, X is recognized it is a normal-instruction. 



After this letter lias been recognized these instructions are 
handled together in "instruction" • 

"instruction" has this structure: 



instruction: 
instrucl : 



listing on output 
read( ) 

svitchon ch into 



$(switch2 

case I 

case P 

case G 

endcase2 : 

default: test ch = L 



>3 goto endcase2 



goto instrucl 



then 



or 



*( 



addres specified as a 
labelvalue 



address specified as an 
absolute address 

check if address is a X23 
instruction (see page 2«l6) 



*) 



$)switch2 



case S,*n,*s : handles insignificant characters. These are 
skipped. 



case D: handles D~ ins true t ions , The structure is: 



2.7 



case D: read( ) 

->svitchon ch into 



$(switchl 

case L: data is specified as a labelvalue 

goto endcase (see bottom page 2.5) 

default: data specified as an 

integer value 

goto endcase 
$)svitchl 



case C : handles C-ins true t ions . The structure is: 

case C : read( ) 

collect first charvalue 

collect second charvalue (if any) 

pack these together and put them in 
dataarea 

goto endcase (see bottom of page 2.5) 

case Y : and case N; handles L- instructions and is very simple, 
case G: handles G-ins tructions • The structure is: 



case G: read( ) 

collect globalnumber 

check if "L" is present. 

collect labelnumber 

call insertref to update pointerchain 

goto endcase (see bottom of page 2.5) 



x.i> 



case Z ; handles Z-ins tructions « This signals the end of a segment 
The structure is: 

case Z: check if any referenced label still is undeclared 

unless error do dump segmentblock (see page 2 # 9) 

test , "more segments 11 

then goto nevsegment 

or - $( mark 1-0 
mark 1-0 
closeall ( ) 
finish 



default : handles labeldeclaratiohs (or illegal sourcetext 
characters) • The structure is: 



default : 



while ch = tal 



$C 



collect labelnumber (declaration) 
update dectabarea (see page 2,13) 



■3= 

V) 



-^switchon ch into 



i( 



sv 



case D: 
case C: 

case L: 



case X: 



} 



declaration-address in dataarea 



declaration- address in codearea 



the chained cells in dectabarea are all set to 
point to the declaration address (see page 2,13) 

goto endcase (see bottom of page 2,5) 

case G, Z, Y, N: illegal labeldeclaration 

goto endcase 

default: illegal sourcetext character 
goto endcase 

— ►$ )s¥ 



OUTPUT OF ASSEMBLER 



The assembler translates each segment as a unit, Listing of 
sourcetext and errormessages will be on Tile output (according 
to the pseudoins tructions Y and N). 

If one or more segments is correct the assembler will deliver a 
file which will be accepted as input to the in t code-loader . 

This file will have the following format. 



segmentblock for first 


correct 


segment 


segment block for last 


correct 


segment 


mark 1-0 






mark 1-0 







where segmentblock is 



mark 1-0 

mark 0-1 

size of codearea 

size of dataarea 

number of globals to initialize 

number of referenced labels 

sumcheck 

picture of codearea 

picture of dataarea 

global tabel 

labeltabel 



mark 1-0 is 1111111111111100 
mark 0-1 is 0000000000000011 



Instructions are separated in two areas: 

codearea keeps all normal instructions 

dataarea keeps D-instructions and C—ins tructions 

all other instructions are ps eudo ins true t ions which 
do not need any space in mainstore. 



Sumcheck is the sum of* all words in the Toll owing four tabels 
(codearea, dataarea, globaltabel and labeltabel). 

Codearea and dataarea is simply a picture of these two areas. 
For problems about labelref erences and labeldeclarations 
please see page 2.13* 



Globaltabel keeps information about which elements of the global- 
vector should be initialized. 

The format of globaltabel is: 



1. globalno 

1. value 

2. globalno 
2. value 



, n. globalno 
n. value 

where n = "number of global s to initialize". 

For each i between 1 and n i. globalno keeps the number of 
the global which should be intializedj and i. value gives 
a value which is put into the globalvec tor. This value is 
part of a point erchain between labelref erences which later on 
by the loader will be altered to.- an absolut mainstore address, 



Labeltabel keeps information about labeldeclarations and 
label-references . 

The format is: 

1 • labeldec 

1, labelref 

2. labeldec 
2. labelref 



n# labeldec 
n. labelref 

n = "number of referenced labels 11 . 

For each referenced label there are two corresponding words 
in the tabel (i. labeldec and i. labelref) from which all 
nescessary information about use of this label can be extracted, 

iolabeldec gives the place (in dataarea or codearea) where this 
label is declared. 

i. labelref is head of a one-way list which gives the places 
(in dataarea, codearea or globalvector ) where this label is 
referenced. The list is terminated by a special mark 
(llllllllllllllOl) . 

The number of the label is insignificant: and is not given in 
the output of the assembler. 



WORKINGTABLES 



The assembler has 7 tables to keep information about a segment. 

Codearea keeps all' normal-instructions, Cpointer points to the 
first empty word, 

Dataarea keeps all D- ins true t ions and C-instructions, Cpointer 
points to the first empty word. 

Globarea keeps information, about all initialized globals. 
The index corresponds to the globalnumber , 

The value is part of a list connecting all places (in codearea, 
dataarea and globarea) where this particular label is referen- 
ced, 

Dectabarea and Hef tabarea keeps information about declaration 
and referencing of labels. The index corresponds to the label- 
number. For detailed information see page • 

Decarea and Refarea do exactly the same as Dectabarea and Reftab« 
area, but the former (dectabarea and ref tabarea) is handling 
userdefined labels, while decarea and ref area handles assembler 
generated labels (see p 2 e l6) .Lpointer points to the first free 
labelname in decarea and refarea. 



When a correct segment is fineshed the following is dumped 



codearea as "picture of codearea" 

dataarea as "picture of dataarea" 

cpointer as "size of codearea" 

dpointer as "size of dataarea" 



Globarea is scanned and for each initialized global its number 
and its value is dumped as part of "global tabel " , 

The number of such global s is dumped as "number of global s to 
initialize". 



Dectabarea and ref tabarea is scanned and for each referenced 
label, i , dectabarea, i and ref tabarea, i is dumped as part of 
labeltabel. 

The used part of decarea and refarea are dumped as part of 
labeltabel in the same manner as for dectabarea and reftabarea. 

The number of referenced labels in reftabarea and refarea is 
dumped as "number of referenced labels". 



2.i 



LABELDECLARATIONS_AND_LABE^ 

When a lab el declaration is met it is nescessary to know whether 
it is preceding an instruction placed in codearea or an instruc- 
tion placed in dataarea. Since multiple labels (many labels prece- 
ding the same 1 instruction can occour) it is nescessary to chain 
these declarations together until the instruction is reached, 

When a label is met it is placed in a chain starting at the simple 
variable labelstart (the chain is kept in dectabarea). 

When the type of the instruction (codearea or dataarea) is known 
the assembler works its way through this chain and puts a pointer 
to the declarationplace into each element of this chain. 

Labelreferences can be met in codearea, dataarea or globarea, 
Insertref inserts the address, where the labeled was referenced, 
in a one-way-chain starting at ref tabarea.labelnumber and chaining 
all references to this labelnumber, 

The first 2 bit in the words in this pointerchain indicates in 
which area the address is: 

bit 15 

1 : codearea (bit 14-0 determines address) 

: iff bit l4 = 1 : dataarea (bit 13-0 determines 

: globarea address) 

The pointerchain linking the labelreferences is kept in the cells 
in codearea, dataarea and globalarea where the in t code- loader 
shall put the final address (main store address). 

As an endmark of such a chain is used mark (llllllllllllllOl ) • 
Before start of a segment all cells in dectabarea and reftabarea 

are initialized to this mark. 

See figures at page 2.l4 and 2,15 
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This page and the next shows how labels are handled. 
The corresponding instructions could be: 



G206L312 G312L78 DL78 JL78 78 312 X4 TL78 JL7i 



a) just before the declaration of label 78 

b) both labeldeclaration has been read and chained 

c) the instruction type is knovn and pointers from dectabarea 
to the address of declaration is made. 



d) the final picture handed to the loader (including reftabarea) 
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2. to 



SWITCH = INSTRUCTION 

Instruction X23 is a switch ins truction. According to the intcode 
discription it should be used as follows: 



X23 

Dn 

DL label. default 

D cond.,1 

DL label. 1 

D cond.2 

DL label. 2 



D cond.n 
DL lab el. n 



For the semantic explanation of this please see at page 1.6. 

It is important to know that X23 is a normal-instruction and 
therefore kept in codearea. Its data (Dn ........ DL label. n) 

is D— instruct ions and hence kept in dataarea. It is nescessary 
to tell the X23-instruction where its data is. 

Hence the above peace of code by the assembler is altered to: 



kept in 
codearea 



kept in 
dataarea 



X23 
DL nn 
nn : Dn 



D label. default 
D cond.l 
D lab el. 1 



D cond.n 
^ D label. n 



pi 


ease notice 




th 


is DL- ins truction 


is 


created by 


the 


assembler and 


kept 


in 


codearea 





where nn is a new label generated by the assembler. 

By this reason no segment can have more than loo X23-ins true tions . 



2.1/ 



ERR ORMESS AGES FROM ASSEMBLER 



ADDRESS MISSING 



normal-instruction has no address 
field 



ADDRESS NEG OR TOO BIG 



BAD LABELDECLARATION 



BAD LABELREFERENCE 



C - BAD NUMBER 



C - MISSING NUMBER 



normal instruction with address out- 
side -JO , 64K-1] 

labeldeclaration with labelnumber 
outside { 1,500} 

labelref erence with labelnumber 
outside {1,500} 

C— ins true t ion with charvalue 
outside /0,255j 

C-instruction has no charvalue 



CODEAREA TOO BIG 



the segment needs too much codearea 



DATAAREA TOO BIG 



the segment needs too much dataarea 



DL- BAD LABEL-NO 



DL- MISSING LABELNO 



DOUBLEDECLARATION 



DL- instruct ion with labelnumber 
outside jl, 500} 

DL- ins truction with "L" but no 
specified labelnumber 

labelnumber has been declared twice 



D - MISSING NUMBER 



D-instruction with no data 



D - NUMBER TOO BIG 



D-instruction with specified data 
outside { -32K , 32K-1] 



END OF STREAM REACHED 



G - BAD GLOBALNO 



G - BAD LABELNO 



G - L MISSING 



the end of source-text is reached 
at illegal point 

G- ins truction with globalnumber 
outside JO, 511} 

G-ins true t ion with labelnumber 
outside jl,500J 

G-instruction with "L" missing 



G - MISSING GLOBALNO 



G - MISSING LABELNO 



G-instruction with no specified 
globalnumber 

G-instruction with no specified 
labelnumber 



ILLEGAL CHARACTER 



illegal character used in sourcetext 



LABEL PSEUDOINSTRUCTION 



label is prefixing instruction which 
is neither a normal-instruction, 
D— instruction or C-ins true t ion 



LABELNUMBER MISSING 



address field of normal-instruction 
has an "L" but no specified label- 
number 



LABEL UNDECLARED: nnn 



labelnumber nnn has been referenced 
but not declared (this errorraessage 
is at the very last of the source- 
text-listing) 



TOO MANY SWITCHES 



the segment has more than 100 switch- 
instructions (X23 -instructions) 



LOADER 

INPUT 

The loader takes input from the assembler. 

The syntax is described on pages 2.9 through 2.11 and page 2.13 



STRyCTyRE_pF_THE_LOADER 

The loader has this structure: 

declarations and initializations 

presentation 

initialization of cbase and dbase 

newtape: 

read until mark 1-0 

while nextoninput = mark 0-1 do 

§ (while 

read header 

read code into mainstore 

read data into mainstore 

read global table and do the 
specified initializations 

read labeltable to initialize 
the unsolved references 

read mark 1-0 

sumcheck 
§) while 

if more tapes do goto newtape 

go() 



(header = codesize, datasize, globalsize, tablesize and checksum ) 



™g = USE OF GLOBALS G^O^^ll 

To understand H go()" and "initialization of cbase and dbase" 
you must know that the system uses the global s ^Ok through 5H 
Tor communikation of the following information: 

—variable (program* s limits and 
entrypoint ) 

-constant (system's limits and 

entrypoint ) 
-loader's entrypoint 
-assembler's entrypoint 

INITIALIZATION OF CBASE AND DBASE takes G.508 as cbase(base of 
codearea) and G # 507 as dbase (base of dataarea), 

G0( ) initializes G.511, G.510 and G.509 with the loaded program's 
wlimit (cbase-l), pO (dtop) and C (entrypoint). 

Having done this it calles finish (see page 4.5) • 



G.511 


wlimit 


G.510 


pO 


G.509 


C 


G.508 


wlimit 


G.507 


pO 


G.506 


C 


G.505 


C 


G.504 


C 



SYSTEM 

Tho system includes the assembler, the loader, the error- 
routine and a routine "system" to switch between loader and 
assembler. 

ERROR (written in intcode - entrypoint=limit ) is called from 
"error 1 — 5" in "the emulator (see the last page in the emula- 
torlisting) to dump mainstore.O to mainstore.15. 

This pictures the registers (wa: 0-15 ) at the moment the error 
arose (except wa.3=errorno). 



"SYSTEM" is written in intcode according to this algoritrne: 

select ( cons oletable) 

again: 

writes ("3tN assembler: a or loader :1 ?") 

help:= input 

test help='A' then goto G.504 

else 

test help= , L' then goto G.505 

else goto again 

(systems entrypoint is placed in G.506) 



ERR ORMES SAGES FROM LOADER 



OVERFLOW code- and dataarea too big 



MISSING ENDMARK the mark 1-0 expected after 

the segment is missing 



BAD CHECKSUM the checksum just calculated 

differs from the checksum given 
in the header 



EMULATOR 

ORDRECYCLUS 



Emulating one intcode-ins truction the emulator goes round once 
in the below mentioned cycle: 

1. Ask whether the surrounding system wants control 
(has issued an interrupt), 

2, Read next instruction from mainstore to DS (doubleshif ter) 

3« Read address to AS (acumulatorshif ter ) and D, 

Iff* L-bit it set the address is found in the next 
word in mainstore; else it is found in the last 9 bits 
of the present word, 

4, Iff P-bit is set add P to D and keep the result in AS 
and D. , 

5, Iff G-bit is set add G to D and keep the result in AS 

and D • ' 

6, Iff I-bit is set read the mainstore address D and put 
the content of this in AS and D. 

7, Increment C (programcounter) 

8, Decode instructioncode 

9# According to this decoding jump to one of 8 possible 
labels in the emulator, 

lo. Perform the desired operation 

1 11. goto 1 , 

There is one exception from this scheme. The X23 (switch-instruc- 
tion) is so long that it must be partioned into smaller sections. 
Between each section the surrounding system has the possibility 
to interrupt. 

"Flag" is used to indicate whether a switch- instruction is 
interrupted. Iff flag is set control is passed from 1. directly 
back to the part in the emulator handling X23-instructions . 



4. J. 



ZNITIALIZATION^OF^WA^AND^WB 

The first ¥B-group is initialized to: 

0, 1, 2, 3, k, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, -1 



The second WB-^roup is initialized to, keep a table used by 
the emulator when switching between the 32 possible X-instruc- 

tions. 



0: 


ERROR 


address XI 


1: 


address X2 


address X3 


2: 


address Xh 


address X5 








13: 


address X2 6 


address X27 


14: 


ERROR 


ERROR 


15: 


ERROR 


ERROR 



The addresses ( controls toreaddresses ) are packed two and two. 



*4.U 



The first WA-^roup keeps the in tcode-machines six registers 
and other vital information such as flags, limits etc. 






: BASE 


1 


: WLIMIT 


2 


: PO 


3 


: ERROR 


k 


: FLAG 


5 


: B 


6 


: A 


7 


: C 


8 


D 


9. 


P 


10: 


G 


11: 




12: 


INPUT 


13: 


OUTPUT 


14: 


CS 


15i 


LIMIT 



BASE is the basisaddress in mainstore. All other addresses 
is relative to BASE. 

WLIMIT is the last word in mainstore where writting is permitted, 

PO is the first word in the runtimestack (local variables). 

FLAG indicates whether a X23-instruction was interrupted 
(see page 4,1 ) • 

A, B, C, D, P and G are the intcode-machines six registers, 

INPUT and OUTPUT keeps the selected input- and outputdevice. 

CS is baseaddress in controlstore for the emulatorcode . 

LIMIT is the last word in mainstore where access (reading) is 
permitted, 

ERROR is a mailbox indicating where the errorroutine was called 



BASE, PO, WLIMIT, LIMIT and C are initialized by the intcode- 
loader, 

INPUT and OUTPUT has standard initializations (see microcode 
listing), 

CS is initialized by the system (at present it f s always 0), 

Anythings else is initialized to 0, 



4. 



MAINSTORE 

When n segments are loaded the picture is 



BASE 





codearea 
segment 1 




codearea 
segment 2 










codearea 
segment n 




/garbage // 




runtime 
stack 




dataarea 
segment n 










dataarea 
segment 2 




dataarea 
segment 1 




global 
vector 


*■ 


dump 
areal 



LIMIT 



WLIMIT 



PO 



G 







4.5 



The emulator uses two subroutines: read and write. 

These routines simply initialize the reading (writing). 
Then it returns control to" the calling- address without 
waiting for the read (write) to finish. 

Read tests:. base ^ read-address ^ limit 

Write tests: base ^ write-address ^ wlimit 

If these conditions are not met the errorroutine is called. 



£5NISH__(X22_in_the_|mulator) 

X22 looks at G.511 to. see if a program has been loaded 
(see page 3*2 ) , 

If so then it initializes wlimit, pO and C from G, 511, G.510 
and G,509 and starts prograraexecution, 

Else it initializes wlimit, pO and C from G.5O8, G.507 and 
G.506 and so leaves control to "system". 



